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The RICIS Concept 


The University of Houston -Clear Lake estab lished the Research Institute for 
Computing and Information Systems (RICIS) in 1986 to encourage the NASA 
Johnson Space Center (J3C) and local industry to actively support research 
in the computing and information sciences. As part of this endeavor, UHCL 
proposed a partnership with JSC to jointly define and manage an integrated 
program of research in advanced data processing technology needed for JSC’s 
main missions, including administrative, engineering and science responsi- 
bilities. JSC agreed and entered into a continuing cooperative agreement 
with UHCL beginning in May 1 986, to jointly plan and execute such research 
through RICIS. Additionally, under Cooperative Agreement NCC 9-16, 
computing and educational facilities are shared by the two institutions to 
conduct the research. 

The UHCL/RIC1S mission is to conduct, coordinate, and disseminate research 
and professional level education in computing and information systems to 
serve the needs of the government, industry, community and academia. 
RICIS combines resources of UHCL and its gateway affiliates to research and 
develop materials, prototypes and publications on topics of mutual interest 
to its sponsors and researchers. Within UHCL, the mission is being 
implemented through interdisciplinary involvement of faculty and students 
from each of the four schools: Business and Public Administration, Educa- 
tion, Human Sciences and Humanities, and Natural and Applied Sciences. 
RICIS also collaborates with industry in a companion program. This program 
is focused on serving the research and advanced development needs of 
industry. 
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Moreover, UHCL established relationships with other universities and re- 
search organizations, having common research interests, to provide addi- 
tional sources of expertise to conduct needed research. For example, UHCL 
has entered into a special partnership with Texas A&M University to help 
oversee RICIS research ant education programs, while other research 
organizations are involved via the “gateway" concept 

A major role of RICIS then is to find the best match of sponsors, researchers 
and research objectives to advance knowledge in the computing and informa- 
tion sciences. RICIS, working Jointly with its sponsors, advises on research 
needs, recommends principals for conducting the research, provides tech- 
nical and administrative support to coordinate the research and integrates 
technical results into the goals of UHCL, NASA/JSC and industry. 
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Abstract 


Despite the advancements in the computer industry in the past thirty 
years, there is still one major deficiency. Computers are not designed to 
handle terms where uncertainty is present. To deal with uncertainty, 
techniques other than classical logic must be developed. This paper 
examines the methods of statistical analysis, the Dempster-Shafer 
theory, rough set theory, and fuzzy set theory to solve this problem. The 
fundamentals of these theories are combined to possibly provide the 
optimal solution. By incorporating principles from these theories, a 
decision-making process may be simulated by extracting two sets of 
fuzzy rules: certain rules and possible rules. From these rules a 
corresponding measure of how much we believe these rules is constructed. 
From this, the idea of how much a fuzzy diagnosis is definable in terms of 
a set of fuzzy attributes is studied. 
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INTRODUCTION 


Computers have progressed so much over the past thirty years that 
it is now hard to imagine life without them. They have become smaller, 
faster, and less expensive. Similarly, the applications we use them for 
have grown exponentially. If the auto industry had done what the 
computer industry has done in this time, a Rolls-Royce would cost a 
couple of dollars and might get a million miles per gallon. 

An important development of this progression is the computer's 
ability to refine and expedite the decision-making process. One can enter 
raw data as input and receive the output in an organized, logical form. 

This manipulated form may then be used to help facilitate some type of 
decision by the user. It is also possible for a computer program to have a 
built in "thinking" function which requires no help from the user in order 
to formulate a decision. A decision may be automatically made by the 
computer, solely on the output and any preset conditions of the output. 
This may be achieved through a series of If-then-else statements, for 
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example. 

A program which can perform these simple functions is possible 
through knowledge acquisitions using examples. Through repetition, one 
may learn to associate certain factors to form a decision. Ideally, the 
decisions will always be the same if the corresponding factors are always 
the same. For example, if a person sees lightning and hears thunder, they 
may assume it is raining close by from some similar experiences in the 
past. Again, this is under "ideal" circumstances; the person is positive 
they see lightning and positive they hear thunder. Unfortunately, ideal 

circumstances are not always present. 

As amazing as the progression of computers has been, there is a 
noticeable deficiency: computers are not designed to manipulate data 

where uncertainty is present. Uncertainty may arise in many different 
ways. It may be brought about by ambiguous terms used to describe a 
certain situation. It may also be caused by scepticism of rules used to 
describe a course of action, or by missing or erroneous data. To handle 
uncertainty, methods other than classical logic must be developed. One 
possible solution to this is to use fuzzy set theory to extract rules. 

In ordinary set theory, an element is either in or out of the set. In 
fuzzy set theory, however, an approximation is used to determine the 
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degree to which an element is in the set. This is due to the fact that 
subjective terms are often used to describe a condition. Fuzzy set theory 
allows for a fraction of an element to be in the set. From these fuzzy 
sets, one can extract two sets of fuzzy rules: certain rules and possible 
rules. Basically, the certain rules are formed by taking the minimum of 
the union of two fuzzy sets. Conversely, the possible rules are formed by 
taking the maximum of the intersection of two fuzzy sets. 

A possible solution to deal with uncertainty is in learning from 
examples. An effective method to acquire knowledge through examples is 
rough sets. Rough sets are the group of sets having the same upper and 
lower approximations. As in fuzzy set theory, possible and certain rules 
are extracted. In rough sets, these rules are generated by the upper and 
lower approximations. These qualities are similar to the inner and outer 
reductions of Dempster-Shafer theory. The theory and notation of upper 
and lower approximations is discussed in more detail in section 2.1. The 
attributes of the conditions are assigned values and a measure of how 
much these attributes determine the diagnosis is established. However, 
the values of these attributes require some judgement for their 
determination. Similary, the diagnosis is often not of "pure" type, but a 
combination which is reflective of fuzzy sets. 


3 


Combining these two methods of fuzzy set and rough set theories, as 
well as the principles of Dempster-Shafer theory, provides a possible 
optimal solution for dealing with uncertainty. By integrating these two 
methods, we can produce a set of certain rules and possible rules and 
determine a measure of belief associated with these rules. These rules 
allow a foundation for dealing with uncertainty in the decision-making 

process. 
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Uncertainty 


1.1 Uncertainty 

The previously referenced computer program took certain variables 
and "crunched" them up to come to a certain decision. A major question 
that arises is, "How does one deal with uncertainty?". Uncertainty may 
arise in many different situations. It may be caused by the ambiguity in 
the terms used to describe a specific situation, or it may be caused by the 
skepticism of rules used to describe a course of action. Uncertainty may 
also be caused by inconsistencies in data, or simply by missing or 
erroneous data. 

To understand what is meant by ambiguity of terms, one must 
realize that different people may associate different meanings or values 
for the same term(s). To illustrate this, one cannot put a set value on 
"very rich" or "moderately rich" because these are subjective terms. One 
person's definition may be quite different from another's. For this reason, 
descriptive terms may contain some degree of ambiguity, and therefore 
some degree of uncertainty. 


Uncertainty caused by the skepticism of rules may be attributed to 
an underlying doubt one may have regarding a situation. Occasionally, all 
factors may point towards a certain decision, but one's "gut feeling" 
produces a degree of doubt toward that decision. Whether these doubts 
are warranted or not, they must be taken into account when we refer to 
uncertainty. For these doubts may influence one's future decisions on 
similar situations. 

Clearly, any missing or erroneous data will lead to uncertainty. 
Unfortunately, it is not always obvious when data is wrong. A strong 
characteristic of erroneous data is inconsistencies. In other words, if the 
same data produces conflicting outcomes, uncertainty is present. To 
illustrate this, the table below represents how a decision-maker may 
make an inconsistent decision based on a couple of pieces of data. In this 
example, Case X 2 and Case X 3 have the same data, yet different decisions. 
This shows that uncertainty exists somewhere in this decision-making 
process. 


£M£ 

Xi 

X 2 

X3 

X4 

X5 


CONDITIONS 


P ft TILL 

PRTR2 

DECISION 

W 

Y 

A 

X 

Z 

B 

X 

z 

A 

X 

Y 

B 

w 

Y 

A 
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1.2 Techniques to Combat Uncertainty 

1.2.1 Statistics 

To deal with uncertainty, techniques other than classical logic need 
to be developed. The most useful tool for handling probability is 
statistics, or statistical analysis. Statistical analysis is concerned 
with the collection, organization, and interpretation of data according to 
well-defined procedures. Observations are made and converted into 
numerical form. The numbers are manipulated and organized, with the 
results interpreted and translated back into a way one may understand. 

Statistical analysis allows for the reduction of data. Large masses 
of unorganized numbers may be characterized into smaller sets that 
describe the original observations without sacrificing critical 
information. The second major role lies in its use as an inferential 
measuring tool. In other words, it provides procedures for stating the 
degree of confidence one may have in the accuracy of the measurements 
one makes. Finally, statistical analysis allows one to make distinctions 
about relationships that exist between and among sets of observations. 
Does knowledge about one set of data allow us to infer or predict 
characterisics about another set of data? 

Stastistical analysis does, however, have some deficiencies. Data 
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reduction may lead to the sacrificing of detail. The inferential measuring 
tool statistical analysis provides is useful, but all measurements are 
subject to error. Furthermore, sometimes one may strive to find a 
connection between two sets so much that a connection is unjustifiably 
made. 

Though statistics is a useful method for handling uncertainty, it 
provides only a foundation for the problem of knowledge acquisition under 
uncertainty. Three theories which are better suited to handle this 
problem are: Dempster-Shafer Theory, fuzzy set theory, and rough set 

theory. 

1.2.2 Dempster-Shafer Theorg 

The Dempster-Shafer Theory is a theory of evidence and probable 
reasoning. It is a theory of evidence because it deals with weights of 
evidence and with numerical degrees of support based on evidence. It is a 
theory of probable reasoning because it focuses on the combination of 
evidence, more specifically, the combination of belief functions. 

The theory begins with the idea of using a number between zero and 
one to indicate the degree of belief one should assign for inclusion on the 
basis of the evidence. Its focus lies in the combination of degrees of 
belief based on one body of evidence with those based on an entirely 
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distinct body of evidence. This combination of belief functions is the 
heart of the Dempster-Shafer Theory. Given several belief functions 
based on distinct bodies of evidence, this theory enables one to compute a 
new belief function based on the combined evidence. 

The main connection Dempster-Shafer has to the other theories is 
the concepts of inner and outer reductions. As will be shown in the 
discussion concerning rough sets (section 2.1), this concept is almost 
identical to the lower and upper approximations of rough sets. In inner 
reduction, denoted by ©.(A), is the largest subset that implies A. The outer 

reduction, denoted by ©(A), is the smallest subset that is implied by A. 

Another connection the Dempster-Shafer theory holds to that of 
rough set theory is its belief and plausibility theorems. Given a belief 
function (Bel) committed to the subset A one is given Bel (A). This 
function allows one to study the extent to which the evidence supports the 
negation of A, i.e. -iA, ~> Bel (A). The quality [1 - Bel(A)] expresses the 
plausibility of A; the extent to which the evidence allows one to fail. 

These theories are very similar to rough set theory. 

1.2.3 Fuzzy Set Theory 

Perhaps the most useful tool when dealing with uncertainty is fuzzy 
set theory. This theory is the most practical where ambiguous terms are 
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present. To get a complete understanding of this theory, one must first 
backtrack to ordinary set theory. All branches of mathematics are 
developed, consciously or unconsciously, in set theory or some part of it. 

It is, therefore, an important concept to grasp. A set is a collection of 
things (called elements or members), the collection being regarded as a 
single object. An item is either in the set or it is not. This property is 
referred to as inclusion. 

In fuzzy set theory, however, an approximation is used to 
determine the degree to which an element is in the set. Such concepts as 
inclusion or set equality may seem too strict. Usually, the structures 
embedded in fuzzy set theories are less rich than the boolean lattice of 
ordinary set theory. Unlike ordinary set theory, one cannot determine the 
cardinality, or size, in fuzzy set theory. One cannot compute an accurate 
union or intersection of two fuzzy sets because the elements are 
estimates of inclusion, not "crisp" values. 

If the value of a set is allowed to be the real interval [0,1], A is 
called a fuzzy set. The grade of membership of an element, x, in A is 
Pa(x). The closer the value of jia(x) is to 1, the more x belongs to A. 
Similarly, the lower the value of pa( x )i the less x belongs to A. Clearly, A 
is a subset of x that has no crisp boundary. By using fuzzy set theory, one 
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must approximate the value of inclusion an element has in a set. 

Earlier the question was raised, "What is the difference between 
'very rich' and 'moderately rich'?". Fuzzy set theory could approximate a 
person worth $X to be .4/very rich and .8/moderately rich. Because of the 
ambiguity of the term "rich", one needs to approximate the value of the 
person for "very rich" and "moderately rich". It might be observed that, for 
the decision-maker assigning the values, the person falls into the 
category of "moderately rich" more than "very rich". For this reason, the 
decision-maker puts more "weight" on the term "moderately rich". The 
person lies within the set of "moderately rich" more than the set of "very 
rich". Hence, they are assigned those corresponding values. 

A problem one may encounter using this theory is the fact that the 
decision-maker assigns these values. Obviously, not all people have the 
same pre-conceived meanings for terms such as "very rich or extremely 
tall". The approximations one person gives may be completely different 
from the approximations of someone else. For example, a small boy may 
see a man 5'9" as "very" tall. Conversely, a professional basketball player 
might see the same person as "average" height. It is best to keep this in 
mind, because it can easily influence the decisions. 


1.2.4 Rough Sets 

As was stated earlier, the most traditional way of acquiring 
knowledge is based on learning from examples. An another effective tool 
of inferring knowledge from examples is rough sets. Rough sets are the 
family of sets having the same lower and upper approximations. 

Let U be a non-empty set, call the universe, and let R be an 
equivalence relation on U, called an indiscernibility relation. An ordered 
pair A =(U,R) is called an approximation space. For an element x of U, the 
equivalence class of R containing x will be denoted by [x]/?. Equivalence 
classes of R are called elementary sets in A. We assume that the empty 
set is also elementary. Any finite union of elementary sets in A is called 
a definable set in A. 

Two more concepts, known as the lower approximation and upper 
approximation of X in A are examined later. Basically, the lower 
approximation of X in A is the greatest definable set in A, contained in X. 
The upper approximation of X in A is the least definable set in A 
containing X. These concepts correspond to the inner and outer reductions 
from Dempster-Shafer Theory, also examined later. A rough set in A is 
the family of all subsets of U having the same lower and upper 
approximations in A. These concepts are examined in more detail in 
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section 2.1. 


There are essential connections between rough set theory and 
Dempster-Shafer theory. For example, the lower and upper approximations 
of rough set theory exist under the names of inner and outer reductions, 
respectively. Similary, the qualities of lower and upper approximations of 
rough set theory are the belief and plausibility functions, respectively, of 
Dempster-Shafer theory. 

The main difference between rough set theory and the Dempster- 
Shafer Theory is in the emphasis: Dempster-Shafer Theory uses belief 

functions as a main tool, while rough set theory makes use of the family 
of all sets with common lower and upper approximations. The main 
advantage of rough set theory is that it does not need any preliminary or 
additional information about data. 

1.3 The Proposed Solution 

The main purpose of this work is to study the setting described 
before where a decision-maker is faced with uncertain (i.e. fuzzy) 
conditions and makes a fuzzy decision which might be strongly or weakly 
based on these symptoms. Here, the techniques or fuzzy set theory and 
rough sets will be incorporated to attempt to provide the optimal solution 
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of measuring uncertainty. From the conditions and decisions, one will find 
that fuzzy rules may be extracted. In fact, one may extract two sets of 
rules: certain rules and possible rules. One may also determine a measure 
of how much they believe in these rules. 

The main body of this work is examined in detail in Section 2. The 
basic notations and results necessary to fully understand these concepts 
are discussed here. Section 3 offers a detailed example of these concepts 
at work. It provides an everyday application, as well as an opportunity to 
see how these principles are incorportated. The software specifications 
of this product, which simulates the basic ideas set forth here, is 
available in Section 4. The coding of this program may be found in 
Appendix A. 
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Rough Set theory vs. Fuzzy Set theory 


As stated in Section 1, I believe the optimal solution for knowledge 
acquisition under uncertainty lies within the combination of fuzzy set and 
rough set theories. By integrating the fundamentals of these theories, I 
hope to measure and, where possible, minimize the degree of uncertainty. 
To best understand how the concepts of fuzzy sets and rough sets are to 

be incorporated, it is important to first grasp the main principles of these 

two theories. 

2.1 Rough Sets - A Closer Examination 

Let U be the universe, R an equivalence relation on If, and X any subset 
of U. If [ X] denotes the equivalence class of X relative to R, we can then 
define the foundation of rough sets. This is called the lower and upper 
approximations of X and is denoted, respectively, by. 

B (X) = ( X e U / [X] c X) and 

R (X) = ( X e U / [X] n X * 0 ). 

Once again, rough sets are the family of all subsets in U having the same 



upper and lower approximations. 

To examine these upper and lower approximations closer, we define 
an information system as the quadruple {U,Q,V,t) where Q ■ C u D and 

C n D = 0. The set C stands for the set of conditions, and D is the set of 
decisions. We assume that C is equal to the set of attributes, Q. The set 
V stands for value and x is a function from U x Q into V where x(u,q) 
denotes the value of attribute q for element u. For example, the pulse rate 
q of patient u. The set C produces an equivalence on U by partitioning U 
into sets over which all attributes are constant. A rough set is classified 
by properties of its lower and upper approximations. The set is called 
roughly C-definable if: 

B (X) * 0 and R(X)*U. 

The set is internally C-undefinable if: 

B (X) = 0 and R (X) * U. 

The set is externally C-undefinable if: 

B(X)?t0 and E(X) = U. 

The set is totally C-undefinable if: 

B (X) = 0 and R (X) = U. 
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To illustrate some of these ideas, the table previously referenced is 
examined again. For this example, Decision 'B' denotes sickness. The 
conditions produce a partition on {Xi,X2,X3,X4,X5}, namely { {Xi.Xs} , {X2.X3} 
{X 4 } }. The decision-maker defines "sick" people by X = {X 2 ,X 4 }. Thus, the 


lower and upper 





CONDITIONS 


tan 

PPTfll 

DfiTfl 2 

DECISION 

Xi 

W 

Y 

A 

x 2 

X 

Z 

B 

X3 

X 

z 

A 

X 4 

X 

Y 

B 

X5 

w 

Y 

A 


approximations are H (X) = {X4} and R (X) = {X2.X3.X4}. These upper and 
lower approximations are used to extract the certain and possible fuzzy 
rules, respectively. For this particular example, the set {X4} 
representsthe set of people who are sick for certain, while the set {X2,X3 f 
X 4 } represents the set of people who possibly could be sick. For the case 
X 3 , decision 'B' could lead to the question, "Why is that case possibly 
sick?". The reason is because of the inconsistencies created by X2 and X3, 
and the fact that the same conditions lead to sickness (decision 'A') for X2. 
Because B(X) * 0 and R(X) * U, X is roughly C-definable. 

For an internally C-undefinable set X in S we can not say with 
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certainty that any x e U is a member of X. To demonstrate this case, we 
assume an additional case, X 6 , is added to the previous table. We now 


have: 


can 

Xi 

X2 

X 3 

X4 

X5 

Xe 


CONDITIONS 
DflTfll Dfliaz 


W 

X 

X 

X 

w 

X 


Y 

z 

z 

Y 

Y 

Y 


DECISIONS 

A 

B 

A 

B 

A 

A 


This creates a new partition of X = { {Xi.Xs} , {X 2 .X 3 } , {X4,X6} }. We now 
have no certain cases of sickness, because for every case corresponding to 
sickness, there is an inconsistency to match it. Therefore, R(X) = 0 and 
R(X) = {X 2 ,X 3 ,X4,X 6) . 

For an externally C-undefinable set X in S we can not exclude any x e 
U being possibly a member of X. If case Xi were changed to produce this: 


CASE 

Xi 

X 2 

X3 

X4 

X5 

Xe 


CONDITIONS 

PAT H1 MM 2. 


W 

X 

X 

X 

w 

X 


Y 

z 

z 

Y 

Y 

Y 


DECISION 

B 

B 

A 

B 

A 

A 
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The new partition of { {Xi }, {X2.X3}, {X4,X6}, {X5} } would be created. This 
would then make B(X) = { 0 } and R(X) = {Xi .X2.X3.X4.X5.X6} or R(X) = U. 

Thus, we could say all six cases are possibly sick. 

The difference between the lower and upper approximations may be 
attributed to the presence of inconsistencies. If it were not for the 
inconsistencies, the decision-maker's opinion would be in line with the 
upper and lower approximations produced by C. Therefore, X would be 
totally expressible in terms of C. It is this difference between R(X) and 
R.(X) that offers a measure of how well the diagnosis of the decision- 
maker follows the conditions. If the decision-maker is an "expert", the 
difference between the lower and upper approximations gives one a 
measure of how good conditions C are to determine the diagnosis. In other 
words, the more we trust the decision-maker, the more we believe how 
the conditions determine the diagnosis. Moreover, it is these lower and 
upper approximations which generate the rules that will be used as the 
basis for the decision-making process. These generated rules, called the 
certain and possible rules, will be examined closer in Section 2 . 2 . 

Unfortunately, there may be uncertainty in the conditions, as well as 
the diagnosis. The conditions and the diagnosis rarely partition the 
universe into "crisp" sets. This is due to the fact that most of the values 
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of attributes are descriptive, and thus subjective terms. It is this that 
leads to the "fuzziness" of the conditions/diagnosis when trying to define 
the terms. This "fuzziness" can lead to overlapping, therefore rendering 
crisp partitions nearly impossible. At best one hopes the terms can be 
partitioned with as little overlapping as possible. 

2.2 Fuzzy Sets - fl Closer EKamination 

For all decision-making processes, it is the rules which guides one 
towards a decision. Decision-making under uncertainty is no different. 

The problem lies within determining these rules. As stated in Section 2.1, 
the upper and lower approximations generate possible and certain rules. 

It is Fuzzy Set theory which allows one to extract these fuzzy rules. 

2.2.1 Functions of Fuzzy Set Properties 
To understand how these rules are extracted, one must first be 
familiar with the notation. A fuzzy subset A of U is defined by the 
function: pa • U — -> [0,1]. 

This simply states that the values of the fuzzy subset A fall between 0 
and 1 . If A and B are fuzzy subsets, the properties A n B, AuB, and -A are 

defined by the functions: Min{pA( x ).PB( x )} . Max{pA( x ).FB( x )} . ar| d 
1- p A (x), respectively. The property -.A u B corresponds to the function 
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Max{1-A(x), B(x)}. These computed values are the foundation for 
extracting the rules. Therefore, it is very important to understand what 
is meant by the notation. 

The first function, Min{p A (x),p B (x)}, is computed by matching up the 

corresponding elements of the fuzzy subsets and taking the minimum (in 

value) of the two. For example, given the two fuzzy subsets: 

A = (.3, .4, .7, .8, .6, .1) and 
B = (.6, .2, .4, .3, .5, .4) 

One can compute Min(A,B) = (.3, .2, .4, .3, .5, .1). The second function, 
Max{|i A (x),|iB(x)}, is similar in computation to the first. Instead of taking 
the minimum of the two, one takes the maximum, or greatest in value. 
Using the two previous subsets of A and B, one can compute Max (A,B) = 
(.6, .4, .7, .8, .6, .4). The third function, 1 - p A (x), is computed by taking 

one(1) minus the values of the fuzzy subset. Again, using the previous 
subset A, one can compute 1-A - (.7, .6, .3, .2, .4, .9). The last function, 
Max{1-A(x), B(x)}, is simply a combination of the second and third 
functions. First, one computes 1-A(x) then compares that to B(x), taking 
the maximum of the two. For example, 

Max{1-A, B} = Max{(.7, .6, .3, .2, .4, .9), (.6, .2, .4, .3, .5, .4)} 

ill 

Max{1-A, B} = (.7, .6, .4, .3, .5, .9). 
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2.3 Establishing Certain and Possible Rules 

Now that the fundamental properties (and corresponding notation) 
have been explained, we can define two functions of major importance to 
this work. These two functions are on pairs of fuzzy sets and allow us to 
extract the rules. We assume here that A and B denote fuzzy subsets of 
the same universe. The function l(A <= B) measures the degree to which A 
is included in B. This function computes the rules generated by certainty 
and is defined as: 

I (A c B) = inf Max{1-A(x), B(x)}. 

The function J(A#B) measures the degree to which A intersects B. This 
function computes the rules generated by possibility and is defined by: 

J(A#B) = max Min{A(x), B(x)}. 

The function l(A c B) is computed by first finding Max{1-A(x), B(x)}, then 

taking the minimum term. For the previous fuzzy subset examples of A 
and B, we found the Max{1-A, B} = (.7, .6, .4, .3, .5, .9). Since the minimum 
term is .3, l(A cB) = .3. The function J(A#B) is computed by first finding 

Min{A(x), B(x)}, then taking the greatest (in value) term. Again, using A 
and B we found Min{A,B} = (.3, .2, .4, .3, .5, .1). Since the maximum term is 
.5, J(A#B) = .5. 
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For the example used in this work, we assume the decision-maker is 
faced with different conditions, or attributes, and makes a decision based 
on the values of these attributes. To provide a more concise explanation 
of this work, we will limit the number of possible decisions to two (2). 
Similarly, we will limit the description an attribute may have to two (2). 
For example, size can only be measured as a degree of large and small. 
These limitations are made to explain when to compute the l(A c B) and 


J(A#B) values. 

For the functions of l(A c B) and J(A#B), A denotes the descriptions 


of the attributes, while B denotes the possible decisions. For each 
description, we must measure the degree to which it is included in 
decision 'A' as well as in decision 'B\ In addition to this, we also measure 


the degrees of intersections of the descriptions for each decision. For 


example, if we have attribute- 1 with descriptions of W and X , 
attribute-2 with descriptions of 'Y' and 'Z', and possible decisions of 'A 


B', we would 

need to compute 

l(WcA) 

l(YcA) 

l(WcB) 

l(YcB) 

l(XcA) 

l(ZcA) 

l(XcB) 

l(ZcB) 


all of the following: 


l(WnYcA) l(WnZcA) 

l(WnYcB) l(WnZcB) 

l(XnYcA) l(XnZcA) 

l(XnYcB) l(XnZcB) 
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J(W#A) J(Y#A) J(WnY#A) J(WnZ#A) 

J(W#B) J(Y#B) J(WnY#B) J(WnZ#B) 

J(X#A) J(Z#A) J(XnY#A) J(XnZ#A) 

J(X#B) J(Z#B) J(XnY#B) J(XnZ#B) 

2.3.1 Threshold Ualues 

As one can see, this leads to large numbers of rules. For this case, 
we would have 32 rules: 16 certain rules and 16 possible rules. If we had 
3 attributes with 2 descriptions each, the number of rules would increase 
to 104 rules. It is therefore essential to establish a "threshold" value, 
denoted by a, for which we may ignore alj rules falling below this value. 

Actually, we need two of these values: one for the certain rules and one 
for the possible rules. The decision-maker may or may not set these two 
equal. The higher we set the threshold, the higher the belief we have for 
the rules which factor above it. Unfortunately, there is a trade-off; for 
the higher the threshold, the more rules we ignore. Ideally, the solution to 
this trade-off is to allow the decision-maker to interactively change the 
threshold values as they see fit. By allowing this interactive changing, it 
also provides somewhat of a sensitivity analysis. The decision-maker can 
immediately see which rules are affected by the changing threshold value. 
Another reason to promote interactive changing of the threshold is that 
the value of a is very much problem dependent. A value of a = .5 might be 
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appropriate for on© problem, but irrelevant for another. The decision- 
maker may adjust the value till it is set at the most appropriate level. 
2.3.2 EHtracting Possible and Certain Rules 
Once the threshold value has been established, it is time to extract 
the rules. All rules (values of I and J) which fall below the threshold 
value are immediately eliminated. To further eliminate rules, we have 
certain provisions. First, all rules with unique I and J values are kept. 
Second, if more than one rule has identical I values, we keep (extract) the 
"smaller" in terms of attributes. For example, if we were to obtain the 

following certain rules: 

If W then A is present .6 (1) 

If W and Y then A is present .6 (2) 

If W and Zthen A is present .6 (3) 

we would keep rule (1) because rules (2) and (3) offer no significant data. 
Conversely, if these three rules were computed using J values, thus 

making them possible rules: 

If W then A is possible .6 (4) 

If W and Y then A is possible .6 (5) 

If W and Z then A is possible .6 (6) 

we would extract rules (5) and (6). This is because rules (5) and (6) imply 
the possibility of rule (4). 

The concepts discussed up to this point are represented in an 
example in section 3. 
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2.4 Definibiiity of Terms 


Now that all the certain and possible rules are extracted, we can 
measure the definibiiity of terms. The goal of this is to define the terms 
in the decisions as a function of the terms in the conditions. How well 
this can be accomplished is a function of how much the decision follows 
the conditions. 

Let {Qj} be a finite family of fuzzy sets. This family of sets does not 

necessarily form a partition on the universal set. Let A be a fuzzy set. A 

lower approximation of A through {Qj}, produces the fuzzy set: 

£(A) « U l(Qj cA) Qj. 

Here, U denotes the union of fuzzy sets, and l(Qjc A) Qj denotes the fuzzy 

set obtained by multiplying the components of Qj by l(Qj c A). Therefore, if 

Qj is very much a subset of A, l(Qj c A) Qj is close to the whole set Qj. 

Conversely, if l(Qj c A) is small, so is the contribution of Qj to E(A). 

Similarly, we can define an upper approximation of A through {Qj} by: 

1T(A) = U J(Qj # A) Qj. 

In the special cases where all the sets are crisp, and {Qj} denotes a 

partition generated by an equivalence relation R, then the lower 

approximation is defined as: 

H(A) = {X / [X] c A}, 
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and the upper approximation is defined as: 

■R(A) - {X/ [X] nA*0}. 

One can therefore see that in this crisp case: 

R(A) cAcR(A). 

One should not, however, expect these inclusions to hold in the fuzzy case 
because boundaries of the relevant sets are poorly-defined. 

It is important, however, to realize that even if the decisions 
completely follow the conditions, the rules generated are not necessarily 
100% accurate. To illustrate this, we can substitute tumor color with 
shirt color when dealing with medically-based decisions. We might find 
that for 100 cases of cancer, all cases involved blue shirts. Does this 
mean blue shirts may promote cancer? The answer is, or course, no, but it 
forces the decision-maker to choose the conditional attributes carefully. 
The more the decision-maker knows the conditions influence the 
decisions, the more accurate the generated rules will be. 
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Application: Tumor Diagnosis 


As stated earlier in this paper, knowledge aquisition is best 
accomplished by looking at examples. It is therefore important to provide 
an example of the concepts discussed in section 2. By examining an 
application, these concepts should become clearer. 

The analogy to be used here is that of a doctor (decision-maker) 
examining the characteristics (attributes) of tumors and rendering a 
diagnosis (decision). For this example, the attributes are size and color. 
Size can be described as large and small. Color will be limited to the 
descriptions of blue and red. The possible diagnosises will be either 
Disease 'Da' and 'Db'- 


While examining seven patients, the following data is accumulated: 


PATIENTS 

SIZE 

COLOR 

DECISIONS 

PI 

.3L + .8S 

.2R + .9B 

.3/Da + .6/D b 

P2 

.4L + .7S 

.4R + .7B 

.8/Da + .5/Db 

P3 

.7L + .4S 

.6R + .7B 

.5/D a + 9/D b 

P4 

.8L + .5S 

.3R + .8B 

.7/D a + .3/D b 

P5 

.2L + .7S 

.2R + .5B 

.4/Da + .2/Db 

P6 

.9L + .2S 

.8R + .2B 

.7/D a + .8/D b 

P7 

.3L + .6S 

.7R + .IB 

.4/D a + -5/D b 


From this data, we can extract the fuzzy sets for each of the descriptions 
(of the attributes) and for each diagnosis. These fuzzy sets are: 


FUZZY SETS; 

L = .3/PI + AIP2 + .7/P3 + .8/P4 + .2/P5 + .9/P6 + .3/P7 

S - .8/PI + .7/P2 + .4/P3 + .5/P4 + .7/P5 + .2/P6 + .6/P7 

R = ,2/PI + .4/P2 + .6/P3 + .3/P4 + .2/P5 + .8/P6 + .7/P7 

B = ,9/PI + .7/P2 + .7/P3 + .8/P4 + .5/P5 + .2/P6 + .1/P7 

Da = .3/PI + -8/P2 + .5/P3 + .7/P4 + .4/P5 + .7/P6 + .4/P7 

D b = ,6/PI + -5/P2 + .9/P3 + .3/P4 + .2/P5 + .8/P6 + .5/P7 

Now that we have established the fuzzy sets, we can compute the values 

of l(A c B) and J(A # B) to establish the rules. These values are as 


follows: 

l(L c D a ) = -5 
l(S c Db) = -3 
l(B e D a ) = -3 
IfLnRc D b ) = -6 
l(S n R c D a ) = .4 
l(S n B c Db) = -5 
J(S # D a ) = -7 
J(R # D b ) = .8 
J(L n R # Da) = .7 
J(L n B # Db) = .7 
J(S n B # D a ) = .7 


I(LcDb) = .3 
l(R c D a ) = .4 
l(B c D b ) = .3 
l(LnB c D a ) = .5 
l(SnR c Db) = .5 
J(L # D a ) = .7 
J(S # D b ) = 6 
J(B # D a ) - .7 
J(LnR # D b ) - .8 
J(S n R # D a ) * .4 
J(S n B # D b ) = -6 


l(S c D a ) = .3 
l(R c D b ) = 5 
l(L n R c Da) = 5 
IfLnBc Db) = -3 
l(S n B c Da) * -3 
J(L # D b ) =.8 
J(R # D a ) = .7 
J(B # D b ) = .7 
J(L n B # D a ) = .7 
J(S n R # D b ) = -5 


Assuming that we have already established the threshold value (a) for 
certain rules to be a = .5 and for possible rules to be a = .6, we are left 
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with the following rules: 



If the tumor is large then Da is present 0.5. 

If the tumor is large and red then Da is present 0.5. 

If the tumor is large and blue then Da is present 0.5. 

If the tumor is red then D B is present 0.5. 

If the tumor is large and red then D B is present 0.6. 

If the tumor is small and red then D B is present 0.5. 

If the tumor is small and blue then D B is present 0.5. 
ABLE ROLES: 

If the tumor is large then Da is possible 0.7. 

If the tumor is small then Da is possible 0.7. 

If the tumor is red then Da is possible 0.7. 

If the tumor is blue then Da is possible 0.7. 

If the tumor is large and red then Da is possible 0.7. 

If the tumor is large and blue then Da is possible 0.7. 
If the tumor is small and blue then Da is possible 0.7. 
If the tumor is large then D B is possible 0.8. 

If the tumor is small then D B is possible 0.6. 

If the tumor is red then D B is possible 0.8. 

If the tumor is blue then D B is possible 0.7. 

If the tumor is large and red then D B is possible 0.8. 

If the tumor is large and blue then D B is possible 0.7. 
If the tumor is small and blue then D B is possible 0.6. 
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Finally, we extract the certain rules and possible rules in which to keep 
by using the theory explained in section 2.3. This leads to the following 
rules: 


If the tumor is large then Da is present 0.5. 

If the tumor is red then D B is present 0.5. 

If the tumor is large and red then D B is present 0.6. 

If the tumor is small and blue then D B is present 0.5. 

EXTRACTED POSSIBLE ROLES.; 

If the tumor is large and red then D A is possible 0.7. 

If the tumor is large and blue then D A is possible 0.7. 

If the tumor is small and blue then D A is possible 0.7. 

If the tumor is large and red then D B is possible 0.8. 

If the tumor is large and blue then D B is possible 0.7. 

If the tumor is small and blue then D B is possible 0.6. 
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■©TOM 4 


Software Specifications 


4.1 Software Specifications 

The following is an attempt to describe the requirements 
specifications for the software to be developed for partial fulfillment of 
the senior project (CS 4395). The software should be designed to 
simulate the main ideas in Dr. Andre' de Korvin's paper, " Extracting fuzzy rules 
under uncertainty and measuring definibility using rough sets." 

As in all good software design, the software should be above all user- 
friendly. It should be designed to allow a user to "walk-through" the 
system. This can be achieved through screen messages at every step and 
error messages when appropriate (improper data entry). The software 
should also be modifiable so that it may be expanded in the future. This 
can be achieved through well-documented modules. The software should 
also be efficient and reliable. 

These are the goals of every software system. The following is a 
list of the functions, goals, and constraints of this particular system. In 
some instances, examples are used to better explain the concepts. 
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4.1.1 Input 


The user should be able to: 

A. Enter any number of attributes. 

The paper uses two, for example: size and color. The user 
should also be allowed to have any number of descriptions for 
each attribute. The paper describes size with values of large 
and small. The user should also be able to use medium. 

B. Enter data in any numeric form. 

1) The form the data is entered in the paper is in "fuzzy form 
where all values are between 0 and 1. The software 
should certainly be able to manipulate data which is 
entered in this form. In addition, the user should be able 
to enter "real data". For example, given the following 


numbers: 
1 0 

40 

5 

50 

1 5 

27 

80 

25 

60 

35 

55 

33 


The software should be able to convert 55 to 
55 -> .3/Low + .7/High 

2) The user should also be able to set the boundaries for the 
data to be entered. Using the numbers from above, the 
user may wish to declare 10 as the bottom and 75 as 
the ceiling. If the number 5 is entered as data, it should 
be converted to: 5 -> 1/Low + 0/High. Likewise, 80 
would be converted to: 80 -> 0/Low + 1/High. 

The user should be able to arbitrarily set these 
boundaries as well as change them between applications 

C. Set the two threshold values (one for the certain rules, one for 
the possible rules). 

1) The user should be able to interactively change the 

threshold to compare the changes, i.e. the rules the 
changes affect. 

2) Software should produce an error message for a threshold 

value greater than 1 or less than 0. 
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4.1.2 Functions and Calculations 


The software should be able to: 

A. Convert the inputed data into the "fuzzy sets" that are used as 

the basis for all fuctions and calculations. 

B. Measure the degree to which a set, A, is included in another, B: 

(l(AnB)}. This calculation is used to determine the certain 
rules. 

C. Measure the degree to which a set, A, intersects another, B: 

(J(A#B)}. This calculation is used to determine the possible 

rules. 

D. Compare the values of l(AnB), for various A's and B's, with the 

threshold value for certain rules and disregard all values of 
l(AnB) which fall below the threshold. Similarly, all values of 
J(A#B) should be compared to the threshold value for possible 
rules with all values of J(A#B) below the threshold being 
disregarded. 

E. From the values of l(AnB) and J(A#B) that are at or above the 

threshold, the software should extract the rules (to keep). 

For the certain rules, the "prime" rules should be extracted. 

For the possible rules, the "combination" rules should be 
extracted. For example, if the rules are: 

(1) If tumor is A and B then C is .6. 

(2) If tumor is A then C is .6. 

(3) If tumor is B then C is .6. 

For the certain rules, we extract (2) and P). For the possible 
rules, we extract C). 

F. Convert the inclusion {l(AnB)} and intersection (J(A#B)} symbols 

to english statements. The purpose of this is to help the user 
to better distinguish the output. 





34 


.3 


Output 


The software should produce: 

A. A complete listing of all rules (certain and possible) in english 

for : 

1) Before comparison to the threshold value, and 

2) After the comparison to the threshold value. 

B. The two threshold values the user has assigned. 

C. The final list of extracted certain and possible rules in english. 


CONCLUSION 


The decision-making process can easily be simulated by computers 
if no uncertainty is present. Unfortunately, this is not always the case. 
Uncertainty may arise due to a number of reasons. It may be due to 
ambiguity of terms, the skepticism of rules, or by missing or erroneous 
data. Therefore, methods other than classical logic must be developed to 
counteract this. 

This paper has examined the methods of Dempster-Shafer, Rough 
sets, and Fuzzy sets in an attempt to achieve the optimal solution. The 
solution offered here is an integration of these methods. The decision- 
maker may enter in conditional attributes and decisional attributes. 

These values are converted into fuzzy set form. From here, lower and 
upper approximations of belief are established. These approximations 
generate the rules, certain and possible, which will be used as the basis 
of the decision-making process. 

This entire process is simulated in the program: The Culas-Worm 
Decision-Maker. In this program, the user, or decision-maker, is first 
given the choices of examining a sample running of the program or 
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entering in their own data. The data may be entered in fuzzy set form (i.e. 
inclusive values between 0 and 1) or real form (any real number). From 
there, the lower and upper approximations and the certain and possible 
rules are generated. A threshold value may be entered to provide a more 
"consistent" view of these rules. The rules generated through this process 
form the foundation for which the user makes their decisions. 

This program should satisfy the immediate objective of the research 
and implementation of the previously referenced methods. In addition, it 
should provide a foundation for the ultimate long-range goal, the 
designing of a decision-making process which neutralizes uncertainty. 
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Appendix A 


Program: 


The Culas-Worm Decision-Maker 



Program Extract_Fuzzy_Rules (Input, Output) ; 

{ **************************************************************** 

{**************************************************************** 
*** } 

J ****** 

****** } 

| ****** 

****** } 

{ ****** 

****** } 

{ ****** 

****** } 

{ ****** 

****** } 

{****** 

******} 

{ ****** 

******} 

{ ****** 

****** } 

{ ****** 

****** } 

| ****** 

-fc ^ * * * * j 

{****** Rough Sets”. The program is designed to combine the 

****** J 

{ ****** 

****** } 

{ ****** 

******} 

{ ****** 

****** } 

{****** a decision. 

******} 

{ ****** 

****** } 

{ **************************************************************** 
*** } 

{ **************************************************************** 
*** } 

const 

max_cases = 100; 
type 

str = string [10]; 

fuzzy_array = array[l. .max_cases] of real; 

struct = record 
attl : str; 

att2 : str; 

value_attl : real ; 
value att2 : real; 


PROGRAM FOR PARTIAL FULFILLMENT OF THE REQUIREMENTS 

FOR CS 4395 

Programmers ; Donald Culas 

Jeff Worm 

This program simulate the ideas set forth in 
Dr. Andre de Korvin's paper, "Extracting Fuzzy Rules 
under uncertainty and Measuring Definibility using 


methods of rough sets and fuzzy sets to measure 
uncertainty. Fuzzy rules are extracted to provide 
the user a foundation from which they may formulate 


end 


cond_struct = 

record 

consider 

str; 

firattr 

str; 

secattr 

str; 

f irattr_l 

str; 

f irattr_2 

str; 

secattr_l 

str; 

secattr_2 

str; 

end; 



dec_struct = record 
consider : str; 
firattr : str; 
secattr : str; 
end; 


value_struct 

kind_l 

kind_2 

dec_kind 

value 

attr 

tag 

end; 


= record 
: str; 

; str ; 

; str; 

: real; 

: integer; 
: integer ; 


case_struct = record 
condition_l 
condi tion_2 
decision 

end; 


struct ; 
struct ; 
struct ; 


info = array [ 1. .max_cases] of case_struct; 
value_array = array [1..9] of value_struct ; 


var 

cases : info; 
thresh ; real ; 

m ch, sit_ch, d_ch, val_ch, see_ch : char; 
no_of_cases, count : integer; 
read_data : boolean; 
condition ; cond_struct; 
decision ; dec_struct; 

condl_attl_arr , condl_att2_arr , cond2_attl_arr , cond2_att2_arr ; 
fuzzy array; 

dec attl_arr,dec_att 2 _arr, inter_array : fuzzy_array; 

decl sub, dec 2 _sub, decl_inter, dec2_inter : value_array. 


{****************** 
* * * * * } 


********************************************** 


PROCEDURE 


INITIALIZE 


| *********************** 

**********************} 

{ ************* 

************** } 

{************* This procedure initializes the strings. 

**************} 

^ **************************************************************** 
***** } 

procedure initialize (var con : cond_struct; 

var dec : dec_struct) ; 


var 

blank : string [10]; 
begin 

blank : = ' 1 ; 

con. consider := blank; 
con.firattr := blank; 
con.secattr : = blank; 
con. f irattr_l := blank; 
con. firattr_2 := blank; 
con. secattr_l := blank; 
con. secattr_2 := blank; 
dec. consider : = blank; 
dec.firattr ;= blank; 
dec.secattr := blank; 
end; 


{ INITIALIZE } 


{ INITIALIZE } 


I **************************************************************** 

{** A ************** PROCEDURE READ SITUATION 

**********************} 

{ **** 

****} 

(**** This procedure reads in the conditional and decisional 
**** } 

{**** attributes that the user enters. 

**** \ 

(**************************************************************** 
**** } 

procedure read_situation (var con : cond_struct; 

var dec ; dec_struct) ; 

begin { READ SITUATION } 

writeln; 

writeln; 

writeln; , ... 

writeln (' Please enter the attribute under consideration ); 
write(' (eg. tumor, weather, etc... ) : 1 ); 

readln (con. consider) ; 

writeln; , . , 

write ( 1 Please enter the decision attribute (eg. disease, factory, 

etc . . . ) : 1 ) ; 

readln (dec. consider) ; 
writeln; 


writeln; 

writeln( 'Please enter the two attributes of ' , con. consider , 
'we will be looking at')? 

write ('First attribute of ', con. consider, ' : ')? 

readln ( con . f irattr ) ; 

write (' Second attribute of ', con. consider , ' : '); 

readln (con. secattr) ; 

writeln; 

writeln; 

writeln (' Please enter two attributes for ', con. f irattr) ; 
write ( ' First attribute for ', con. f irattr, ' : ')? 

readln (con. firattr_l) ; 

write( 'Second attribute for ', con. f irattr , ' : ')? 

readln (con . firattr_2 ) ; 

writeln; 

writeln; 

writeln (' Please enter two attributes for ', con. secattr) ; 
write( 'First attribute for ', con. secattr, ' : '); 

readln (con. secattr_l) ; 

write (' Second attribute for ', con. secattr, ' : '); 

readln ( con. secattr_2 ) ; 

writeln; 

writeln; . , . 

writeln (' Please enter two attributes for ', dec. consider) ; 
write ('First attribute for ', dec. consider, ' : '); 

readln (dec. f irattr) ; 

write( 'Second attribute for ', dec. consider, ' : ')? 

readln (dec. secattr) ; 

en ^ ; V { READ SITUATION } 


I*****************************************************************) 

**************** PROCEDURE SET FUZZY VALUE ********************} 
1 ****) 
{**** * 
/**** This procedure reads in real data (i.e, 20 , 58 , 265) ****} 

^**** and converts it into fuzzy values — values between 0 

/**** and l(i.e. 0.7, 0.3, 0.28). ****} 

) ***************************************************************** } 

procedure set_fuzzy_value (var val,max,iain, f irst_val , sec_val : 

rea begin { SET FUZZY VALUE } 

if (val > max ) then 
begin 

first_val := 1; 
sec_val : = 0 ; 

end 

else 

if ( val < min ) then 
begin 

sec_val : = 1 ; 
first_val := 0; 

end 


else 

begin 

f irst_val := (val - min) / (max-min) ; 
sec_val := (max - val)/ (max-min) ; 
end; 

nd . { SET FUZZY VALUE } 


^ **************************************************************** 
**** } 

{************************* READ REAL 

******************************} 

{ * * * * 

****} 

{**** This procedure reads in the real (not fuzzy) values and 
****} 

{**** requires the user to establish high and low values for 
**** } 

{**** the conditional and decisional attributes. 

**** } . .. . 

I**************************************************************** 
**** j 

procedure read_real ( con ; cond struct ; 

dec : decTstruct ; 
var case_arr : info; 
var n : integer) ; 


var 

f irattr_l , f irattr_2 , secattr_l , secattr_2 , dec_l , dec_2 , value 
real ; 

i : integer; 
ch : char ; 
begin 

ch : = ' y ' ; 

i := 1; 
writeln; 

write (' Please enter 
' ,con. firattr_l , '); 

readln(firattr_l) ; 
write ( ' Please enter 
' , con. f irattr_2 , '); 

readln ( f irattr_2 ) ; 
writeln; 

write ( 1 Please enter 
' , con. secattr_l, ' ) 7 
readln (secattr_l) ; 
write ( 'Please enter 
' , con . secattr_2 , ' ; ' ) ; 

readln (secattr_2) ; 
writeln; 

write ( ' Please enter 
' ,dec. firattr, '); 

readln (dec_l) ; 
write ( ' Please enter 
' ,dec.secattr, '); 


{ READ REAL ) 


a n umb er you associate with definitely 


a number you associate with definitely 


a number you associate with definitely 


a number you associate with definitely 


a number you associate with definitely 
a number you associate with definitely 



readln (dec_2 ) ; 

WHILE ( (ch = 'y') or (ch = 'Y') ) do 
begin 

case_arr [ i ] . condition_l . attl := 
case_arr [ i ] . condit ion_l . att2 : = 
case_arr [ i ] . condition^ . attl : = 
case_arr [ i] . condition_2 . att2 := 
case_arr [ i ] . decision . attl : = 
ca s e_a r r [i]. decision, at 1 2 : = 
write ( 'Please enter a value for 
readln (value) ; 


con . f ir a ttr_l ; 
con. f irattr_2 ; 
con . secattr_l ; 
con . secattr_2 ; 
dec. firattr ; 
dec . secattr ; 

' ,con. firattr , 


') 


set_fuzzy_value (value , f irattr_l , f irattr_2 , case_arr [ i] . condition_l 
.value_attl, case_arr [ i] . condition_l . value_att2) ; 

write (' Please enter a value for ' , con. secattr, ' : '); 

readln (value) ; 

set fuzzy value(value,secattr_l,secattr_2,case_arr[i] .condition_2 
. value_attl , case_arr [ i] .condit ion_2 . value_att2) ; 

we ite ( 'Please enter a value for ' , dec. consider, . ) , 

readln (value) ; 


set_f uzzy_value (value , dec_l , dec_2 , case_arr [ i ] . decision . value_att 1 
,case_arr[i] .decision. value_att2) ; 
writeln; 
i : = i + 1 ; 

REPEAT { Makes user enter ' Y 1 or ' S } 

writeln; 

write( 'Please enter [y] to input more data or [s] to stop : 


readln (ch) ; , . 

UNTIL ( (ch = 's') or (ch = 'S') or (ch = 'y') or (ch — Y ) )? 

end; 

ch := ' ' ; 

n := i-1; 

end; { R EAD REAL > 


{**************************************************************** 
(*************** PROCEDURE CREATE CONDITION_l FUZZY SETS 

***************} 

{ **** 

This procedure creates the fuzzy sets for the first 
condition. ****} 

( **************************************************************** 
*********} 

procedure create_condl_fuzzy_sets ( con : info; 

n : integer; 

var new_arr_l : fuzzy_array; 
var new_arr_2 : fuzzy_array ) ; 

var 

i : integer ; 


1 to n do 


begin 

for i := 
begin 

new_arr_l [ 
new_arr_2 [ 
end; 


ij : = 
i] : = 


end; 


{ create_condl_fuzzy_sets } 


con[i] . condit ion_l.value_attl; 
con [ i ] . condit ion_l . value_att2 ; 

{ create_condl_fuzzy_sets } 


{ **************************************************************** 
**********} 

{****************** CREATE CONDITION_2 FUZZY SETS 

***********************} 

{ **** 

**** } 

{**** This procedure creates the fuzzy sets for the second 
condition. ****} 

{**************************************************************** 

**********} 

procedure create_cond2_fuzzy_sets ( con : info; 

n : integer; 

var new_arr_l : fuzzy_array; 
var new_arr_2 ; fuzzy_array) ; 


var 

i : integer; 
begin 

for i := 1 to n do 
begin 

new_arr_l[i] := 
new_arr_2 [ i ] := 

end; 

end; 


{ CREATE C0ND_2 FUZZY SETS } 


con[i] . condition_2 .value_attl ; 
con[i] . condit ion_2 . value_att2 ; 

{ CREATE C0ND_2 FUZZY SETS } 


{**************************************************************** 

********** J 

(************** PROCEDURE CREATE DECISION FUZZY SETS 

********************} 

{ *** 

*** J 

{*** This procedure creates the fuzzy sets of the decisional 
attributes * * * } 

j **************************************************************** 
********** } 

procedure create_decision_fuzzy_sets (con : info; 

n : integer; 

var new arr_l : 


fuzzy_array ; 


var 


new arr 2 


fuzzy_array) ; 
var 

i : integer ; 
begin 


{ CREATE DECISION FUZZY SETS 


mi ii ii iii ii i in mi mu mm aim 


} 


for i := 1 to n do 
begin 

new_arr_l [ i ] 
new_arr_2 [ i ] 
end; 

end; 

} 


con[i] . decision. value_attl; 
con[i] . decision. value_att2 ; 

{ CREATE DECISION FUZZY SETS 


* * * * } 

{ ********************* * * PROCEDURE INIT 

***************************} 

{ **** 

**** } 

{**** This procedure initializes the strings. 

**** } 

** ** j 

procedure init(var arr : value_array) ; 
var 


i : integer; 
blank ; string [10]; 
begin 

blank ;= ' ' ; 

for i := 1 to 9 do 
begin 

arr [i] .kind_l := blank; 
arr [i] .kind_2 := blank; 
arr[i] .tag := -1; 
end; 

end; 


{ PROCEDURE INIT } 


{ PROCEDURE INIT } 


I**************************************************************** 

{ ***************** * PROCEDURE SET CONDITIONS 

*************************} 

{ **** 

* * * * } 

( **** This procedure assigns the conditional attributes 

* ** * j 

{**************************************************************** 

*******} 

procedure set_cond ( con : cond_struct; 

var arrl : value_array) ; 

be gi n { SET CONDITION } 

arrl [ 1] • kind_l := con. f irattr_l ; 
arrl[l].attr := 2; 
arrl [ 2 ] . kind_l := con. f irattr_2 ; 
arrl[2].attr := 2; 
arrl [ 3 ] . kind_l := con. secattr_l ; 


arrl [ 3 ] .attr :=2; 

arrl [4] .kind_l := con. secattr_2 ; 

arrl [4]. attr := 2; 

arrl [5] .kind_l := con. f irattr_l ; 

arrl [5] .kind_2 := con. secattr_l ; 

arrl [5]. attr := 3; 

arrl [ 6 ] . kind_l := con. f irattr_l ? 

arrl [6] .kind_2 := con. secattr_2 ; 

arrl [6]. attr := 3; 

arrl [7] ,kind_l := con. f irattr_2 ; 

arrl[7] .kind_2 := con. secattr_l ; 

arrl [7]. attr := 3; 

arrl [8] .kind_l := con. f irattr_2 ; 

arrl [ 8 ] . kind_2 : = con . secattr_2 ; 

arrl [8]. attr := 3; 

. { SET CONDITION } 


(**************************************************************** 

( ********************* PROCEDURE SET DECISION^ 

**********************} 

{ **** 

-k k k k } 

{**** This procedure assigns the first decisional attribute 

* * k k \ 

{**************************************************************** 

kkkkkkk} 

procedure set_decl(dec : dec_structy 

var arr : value_array) ; 


var 

i : integer; 
begin 

for i := 1 to 8 do 

arr [i] .dec_kind := dec.firattr; 

end; 


{ SET DECISI0N_1 } 
{ SET DECISI0N_1 } 


{**************************************************************** 
{***** * * * ************* PROCEDURE SET DECISI0N_2 

*********************** } 


{ kkkk 
kkkk } 

{kkkk This procedure assigns the second decisional attribute 

(A*************************************************************** 

********} 

procedure set_dec2(dec : dec__struct; 

var arr : value_array) ; 


var 



i : integer; 
begin 

for i ;= 1 to 8 do 

arr [ 1 ] • dec kind • deo • secattr # 

end; 


{ SET DECISI0N_2 } 
{ SET DECISI0N_2 } 


{**************************************************************** 

{*************************** FUNCTION SUB 

*****************************} 

{ **** 

****} 

{**** This function evaluates the values of I (A c B) . This value 

"h & "k ■J? J 

{**** is the degree to which A is included in B and is used to 
**** } 

{**** generate the certain rules* 

(**************************************************************** 

********} 

function sub ( j : integer; 

arrl, arr2 ; fuzzy_array) : real; 


var 

temp : fuzzy_array; 
min : real; 
i : integer; 
begin 

for i := 1 to j do 
begin 

, . temp [ i ] ;= 1 - arrl[i] ; 

if (arr2 [i] > tempt i] ) then 
temp[i] := arr2[i]; 

end; 

min ;= temp[l]; 
for i := 2 to j do 
begin 

if ( temp[ i] < min ) then 
min := tempt i ] > 

end; 

sub := min; 
end; 


{ FUNCTION SUB } 


{ FUNCTION SUB } 


FUNCTION 


NUM 


1 **** } 

{ ************************** 
***************************} 

{ **** 

**** } 

{ **** 


This function evaluates the values of J (A # B) . This value 


**** } 

{**** is the degree to which A intersects B and is used to 
**** } 

{**** generate the possible rules. 

**** } 

{ **************************************************************** 
***** j 

function num ( j : integer; 

arrl, arr2 : fuzzy_array) ; real; 

var 

temp : fuzzy_array; 
i : integer; 
max : real ; 

begin { FUNCTION NUM } 

for i := 1 to j do 

begin 

if ( arrl[ij <= arr2[i] ) then 
temp[i] := arrl[i] 

else 

temp[i] := arr2[i] 

end; 

max : = temp [ 1 ] ; 
for i : = 2 to j do 
begin 

if ( temp[i] > max ) then 
max : = temp [ i ] ; 

end; 


num := max; 
end; 


{ FUNCTION NUM } 


(A*************************************************************** 
* * * * \ 

{*************.**** PROCEDURE INTERMEDIATE 

*************************} 

^ * * -k * 

****} 

{ **** This procedure sets the values in the intermediate array 
**** } 

^**** for the values of I (A c B) and J (A # B) . 

^mH( A \ 

I**************************************************************** 

****) 

procedure inter ( j : integer; 

arrl, arr2 : fuzzy_array; 
var temp_array : fuzzy_array) ; 

var 

i : integer; 
begin 

for i := 1 to j do 
begin 

if ( arrl [ i] <= arr2[i] ) then 


{ INTER } 


end; 


( INTER } 


temp_array [ i ] := arrl[i] 
else 

temp_array [ i ] := arr2[i] 

end; 


^ **************************************************************** 
£££££££ \ 

{********************** PROCEDURE VALUE SUB 

**************************} 

| * * * * 

****} 

{**** This procedure assigns the values to the corresponding terms 

* * * * j 

{**** of I (A c B) . It calls on the Function SUB. 

* * * * \ 

{ **************************************************************** 

* ****** } 

procedure value sub( n : integer; 

* ~ colattl , colatt2 , co2attl : fuzzy_array; 

co2att2 , decatt ; fuzzy_array; 
var new arr : value_array) ; 


var 

temp_arr : fuzzy_array; 
begin 

new_arr[ 1] .value := sub 
new_arr [2] .value := sub 
new_ar r [ 3 ] . va lue : = sub 
new_arr[4] .value := sub 
inter (n, colattl , co2attl 
new_arr [ 5 ] . value := sub 
inter (n, colattl , co2att2 
new_arr [6] . value := sub 
inter (n,colatt2 ,co2attl 
new_arr [ 7 ] . value : = sub 
inter (n, colatt2 , co2att2 
new_arr [8] . value := sub 
end; 


{ VALUE SUB } 
(n, colattl, decatt) ; 

(n,colatt2, decatt) ; 

(n,co2attl, decatt) ; 

(n,co2att2 , decatt) ; 

,temp_arr) ; 

(n,temp_arr, decatt) ; 

, temp_arr) ; 

(n,temp_arr, decatt) ; 

,temp_arr) ; 

(n,temp_arr, decatt) ; 

,temp_arr) ; 

(n,temp arr, decatt) ; 

" { VALUE SUB } 


PROCEDURE 


INITIALIZE 


TAG 


(**************************************************************** 
******** } 

{******************** 

************************} 

{ **** 

****} 

I**** This procedure initializes the PRINT tag 

** * * ) 

{**************************************************************** 

********} 

procedure init_tag( var arrl : value_array) ; 


var 


i : integer; 

begin { INITIALIZE TAG } 

for i := 1 to 8 do 
arrl[i] .tag ;= -1; 

end; { INITIALIZE TAG } 


{**************************************************************** 

******** } 

{******************* PROCEDURE VALUE INTERMEDIATE 

*********************} 

{ **** 

****} 

{**** This procedure assigns the values to the corresponding terms 

**** j 

{**** of J(A # B) . It calls on the Function NUM. 

****} 

[■it-kick******** **************************************** ************ 

********} 

procedure value_inter (n : integer; 

colattl , colatt2 , co2attl : fuzzy_array; 
co2att2 , decatt ; fuzzy_array; 
var new arr : value_array) ; 


var 

temp_array 
begin 

new_arr [ l ] . value 
new_arr[2] .value 
new_arr[3] .value 
new_arr[4] .value 


fuzzy_array; 


{ VALUE INTER } 


= num (n, colattl, decatt) ; 

= num (n, colatt 2 , decatt) ; 

= num (n,co2attl, decatt) ; 

= num (n, co2att2 , decatt) ; 
inter (n,' colattl , co 2 attl , temp_array) ; 
new_arr[5] .value := num (n,temp_array, decatt) ; 
inter (n, colattl , co2att2 , temp_array) ; 
new_arr [ 6] . value := num (n,temp_array, decatt ) ; 
inter (n, colatt2 , co2attl , temp_array) ; 
new_arr [7 ] . value : = num(n, temp_ar ray , decatt) ; 
inter (n, colatt2 , co2att2 , temp_array) ; 
new arr[8]. value ;= num (n, temp_array , decatt) ; 
end . “ { VALUE INTER } 


(***********************************************} 

{it**********************************************} 


| **** * 
{ ***** 
{***** 
^ ***** 
{ ***** 


The following four procedures are 
simply procedures to produce the 
headings for the output. 


*****} 
*****} 
***** j 
*****} 
*** * * j 




procedure printall_head; 


begin 

writeln; 

writeln; 

writeln (' These are all the rules '); 

writeln ( 1 * J ) • 

writeln ( ' * 1 ) > 

end; 


procedure thresh_head ( tval ; real) ; 
begin 

writeln; 

writeln; 

writeln ( ' These are the rules after applying the threshold 
value of ' , tval; 2:1); 

w r i t e 1 n ( ' 


writeln ( 


•)? 

end; 

procedure certain_head ; 
begin 

writeln; 

writeln (' The following are the certain rules '); 

writeln ( 1 ) > 

writeln; 

end; 

procedure possible_head; 
begin 

writeln (' The following are the possible rules '); 

writeln ( " ' ) ' 

writeln; 

end; 


(**************************************************************** 
{********************** PROCEDURE KIND RULES 

**************************} 

{**** 

* * * * J 

{**** This procedure asks the user what kind or rules they will 
use ****} 

{**************************************************************** 
********j 

procedure kind_rules (var ch : char); 
begin 

writeln; 
writeln; 


{ KIND RULES } 


I I . 


ch : = 

REPEAT 

writeln ( 'What kind of rules would you like to see ?'); 
writeln ( ' ' ) ; 

writeln ( 1 Please enter [a] for all the rules : '); 

writeln ( ' or ' ) ; 

write ( 1 Please enter [e] for the extracted rules: ') ; 

readln (ch) ; 

UNTIL ( (ch = 'a') or (ch = 'A') or (ch = ' e') or (ch = 'E')); 
writeln; 
writeln; 
writeln; 

, nd . { KIND RULES } 


{■k-ic*********** *************************************************** 

******** | 

{ ******************** PROCEDURE CHECK THRESHOLD 

***********************} 

{ * * * * 

**** } 

{**** This procedure asks the user if they want to set a threshold 
**** } 

{**** value for the certain or possible rules. 

**** j 

{**************************************************************** 
******** } 

procedure check_thresh ( var ch : char; 

c _or_p : char) ; 

beg i n { CHECK THRESHOLD } 

ch := ' ' ; 

writeln; 

writeln; 

write ( ' Do you want to see only the ' ) ; 

if (c_or_p = 'c') then 
write ( 'certain ') 
else 

write ( 'possible '); 

writeln ('rules above '); 

writeln (' a threshold value? '); 

writeln; 

REPEAT 

writeln; 

writeln; 

write (' Please enter [y] to see only the '); 

if (c_or_p = 'c') then 
write (' certain ') 
else 

write ( 'possible '); 
writeln ( 'rules which '); 

writeln ( ' are above a threshold value ' ) ; 
writeln ( ' or ' ) ; 

write ( ' Enter [n] to see all the ’); 



if (c_or_p = 'c') then 
write (' certain ') 
else 

write ( 'possible '); 
write ( ' rules : ' ) ; 

readln(ch) ; 

UNTIL (( ch = • y * ) or ( ch = 'Y') or (ch = 'n') or (ch = 'N')) 
[. { CHECK THRESHOLD } 


{ **************************************************************** 
******** } 

{****************** PROCEDURE GET THRESHOLD VALUE 

*********************} 

{ **** 

**** } 

{ **** This procedure reads the threshold value if one is entered. 

* * * * j 

{******************************** ******************************** 
******** } 

procedure get_tval ( var num : real ; 

var t_kind : char) ; 

begin { get T_VAL } 

write (' Please enter the threshold value for the '); 

if (t_kind = 'c') then 
write ( 'certain ') 
else 

write (' possible '); 
write ('rules : '); 

read In (num) ; 

end; < GET T_VAL } 


} 

} 

} 

} 

) 

} 

} 

} 

} 


procedure extract_head; 
begin 

writeln; 

writeln; 

writeln (' These are the extracted rules '); 


writeln ( ' 1 ) ' 

writeln ( 1 ) • 

writeln; 

end; 


{ *** 
{ *** 
{ *** 
{ *** 
{ *** 
{ *** 
{ *** 
{ *** 
{ *** 


**************************************** 
**************************************** 
*** ** 
*** The following two procedures are ** 
*** headings for extracted and/or ** 
*** certain rules. 


** 

** 


*** 

**************************************** 

**************************************** 


**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
* * * * 


r 


procedure certain_extract_head; 
begin 

writeln(' '); 
writeln ( ' 1 ) ; 

writeln (' These are the extracted certain rules ') 

writeln ( 1 ' ) 

writeln; 

end; 


( **************************************************************** 
****** j 

j ***************** * PROCEDURE PRINT ENGLISH 

************************} 

{ **** 

**** } 

{**** This procedure produces the generated rules in english. 
**** } 

{**************************************************************** 

******} 

procedure print_english ( arrl ; value_array; 

c_or_p ; char; 
alpha : real; 
kind : char ; 
arr size : integer) ; 


{ PRINT ENGLISH } 


var 

i ; integer; 

print : boolean; 
blank : string [10]; 
begin 

blank := • ' ; 

for i := 1 to arr_size do 
begin 

print ;= false; 

if ( ( kind = 'a') or ( kind * 'A') ) then 
begin " 

if (arrl [i] .value >= alpha) then 
print true 

end 

else 

if ( (kind = 'e') or (kind = 'E') ) then 

if ( (arrl [i] .value >= alpha ) and ( arrl[i].tag = 1) ) 

then 

print ;= true; 

if print then * r: 

begin 

write('If the ' , condition. consider , ' is 

' ,arrl[i] .kind_l) ; . . . - : ' 

if ( arrl [ i] .kind_2 <> blank ) then 
write (' and 1 ,arrl[i] ,kind_2) ; 
write(' then decision. consider, 1 

arrl [i] .dec kind) ; : . .. 

if ( ( c_or_p = 'c') or ( c_or_p = ' C ' ) ) then 


write ( ' is present ') 


end; 

writeln; 
writeln ; 
writeln; 
writeln; 
end; 


else 

write ( ' is possible ' ) ; 
writeln (arrl [ i] .value; 2:1); 
writeln; 

end; 


{ PRINT ENGLISH } 


(**************************************************************** 

********} 

{***************** PROCEDURE POSSIBLE EXTRACT HEADER 

******************} 

{ **** 

**** } 

{**** This procedure generates the heading for extracted rules. 
**** } 

i **************************************************************** 
******** } 

procedure possible extract head; 

begin “ { POSSIBLE EXTRACT HEAD 

> 

writeln ( ' ' ) ; 

writeln ( ' ’ ) ; 

writeln (’ These are the extracted possible rules ')*' 

writeln ( 1 ) ' 

writeln; 

end; { POSSIBLE EXTRACT 

RULES } 


{**************************************************************** 

********} 

(******************** PROCEDURE EXTRACT RULES 

*************************} 

{ **** 

* * * * | 

^**** This procedure extracts the rules. First, all rules with 
****} 

{**** unique X(AcB) and J(A#B) values are kept. Secondly, if more 

**** j 

(**** than one rule has identical I values, the "smaller" in terms 
* * * * } 

(**** of attributes is kept. Conversely, the "larger" rules are 

* * * * J 

(**** kept when dealing with identical J values. 

**** } 



I **************************************************************** 

******** } 

procedure extract_rules (var arrl : value_array; 

c_or_p : char ; 
thresh value : real) ; 


{ EXTRACT RULES ) 


var 

n, i , j : integer; 
begin 

n : = 9 ; 

for i ;= 1 to n-1 do 
begin 

if ( arrl [i] .value >= thresh_value ) then 
begin 

for j ;= i + 1 to n do 
begin 

if ( arrl [i] . attr <> arrl[j].attr ) then 
begin 

if ( c_or_p = ' c' ) then 
begin 

if ((( arrl [ i ] . kind_l 


arrl [ j ] . kind_l ) or 
arrl [ j ] . kind_2 )) and 


(• arrl [ i ] . kind_l = 
( arrl[i] . value = arrl [ j ] .value) 


) then 


begin 

if ( arrl [ i ] • tag = 1) then 
arrl[ j] .tag := 0; 

end; 

if ( arrl[i] .tag = -1 ) then 
arrl [ i ] . tag : = 1 ; 

end 

else 

begin 

if ( ( ( arrl [ i ] • kind_l = arrl [ j ] .kind_l) 


or 

arrl [ j ] . kind_2 ) ) 
) then 


end; 

end; 


( arr 1 [ i ] . kind_l 

and 

(arrl [i] .value = arrl [j ] .value) 

arrl [i]. tag := 0; 
if ( arrl [j]. tag = -1 ) then 
arrl [j]. tag ;= 1; 

end ; 

end 

else if (arrl[i].tag = -1) then 
arrl[i] .tag := 1; 

end; 


{ EXTRACT RULES } 


end; 


PRINT 


RULES 


******* } 

{ ********************* * PROCEDURE PRINT RULES 

************************} 

{ *** * 

**** } 

{**** This procedure calls on the appropriate modules and prints 
**** } 

{**** the headers and the output — > rules. 

**** } 

{**************************************************************** 
******* j 

procedure print_rules( dsubl_arr , dsub2_arr : value_array; 

dinterl_arr, dinter2_arr : value_array) ; 

var 

kind : char; 
c_or_p : char; 
t_val : real; 
ch : char; 

size : integer; 

begin { PRINT RULES } 

size := 8; 
kind_rules (kind) ; 

if (( kind <> 'q') or ( kind <> ' Q ' ) ) then 
begin 

if ( ( kind = 'a') or (kind * 'A')) then 
begin 

t_val := 0.0; 
c_or_p : = ' c 1 ; 
check_thresh (ch, c_or_p) ; 
if ( (ch = ' y 1 ) or (ch = 'Y') ) then 
begin 

get_tval (t_val , c_or_p) ; 
thresh_head (t_val) ; 
end; 

printall_head; 

certain_head; 

print_english(decl_sub , c or p,t val , kind , size) ; 
print_english (dec2_sub, c_or_p, t_val , kind, size) ; 
c_or_p : = ' p ' ; 
t_val : = 0.0; 
check_thresh(ch,c_or_p) ; 
if ( (ch = ' y ' ) or (ch = 'Y') ) then 
begin 

get_tval (t_val , c_or_p) ; 
thresh_head (t_val) ; 
end; 

possible_head ; 

print_english (decl_inter, c_or_p, t_val , kind , size) ; 
pr int_engl ish (dec 2 _inter, c_or_p, t_val , kind, size) ; 

end 
else 
begin 
ch : = 
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t_val := 0.0; 
c_or_p ; = ’ c ' ; 
check_thresh ( ch , c_or_p) ; 
if ( (ch = *y') or (ch = 'Y') ) then 
begin 

get_tval (t_val , c_or_p) ; 
thresh_head(t_val) ; 
end; 

extract_rules ( decl_sub , c_or_p , t_val ) ; 
ext ract_head ; 
certain_extract_head ; 

print_english (decl_sub, c_or_p, t_val , kind, size) ; 
extract_rules(dec 2 _sub,c_or_p,t_val) ; 
pr int_engl ish (dec2_sub , c or p , t_val , kind , size) ; 
t_val := 0.0; 
c_or_p := 'p' ; 
check_thresh (ch, c_or_p) ; 
if ( (ch = 'y') or (ch = 'Y') ) then 
begin 

get_tval ( t_val , c_or_p) ; 
thresh_head (t_val) ; 
end; 

extract_rules (decl_inter , c_or _p,t_val) ; 
possible_extract_head ; 

pr int_engl ish (decl_inter , c_or_p, t_val , kind, size) ; 
extract_rules (dec2_inter , c_or p,t val) ; 
pr int_engl ish (dec2_inter, c or p,t val , kind, size) ; 

end; 

{ PRINT RULES } 


{■k-k-k-k****************** *********************************** ******* 

{ ********************** * PROCEDURE ASSIGN VALUES 

**********************} 

{ * * * * <_ , '"!• V ’ .. ' ' . ,1.. 

****) : 

{**** This procedure assigns the values for the sample run. 

■k-kkk ) 

{**************************************************************** 
******** ) 

Procedure assign value ( var arrl ; info ) ; 

begin (ASSIGN VALUES } 

arrl [ 1 ] . condition_l . value_attl ;= 

arrl [ 1 ] . condition_l . value_att2 ;= 0.8; 

arrl [ 1 ] ,condition_ 2 .value_attl : = 

arrlfl] .condition_2.value__att2 := 0.9; 

arrl [ 1 ]. decision. value_attl 
arrl [ 1 ] .decision. value — att2 := 0.6; 


0 

0 

0 


3 ; 
2 ; 
3 ; 


arrl [2] . condition_l.value_attl 


0.4; 


0.4; 



arrl [ 2 ] . condition_l . value_att2 : = 0.7; 

ar r 1 [ 2 ] . cond i t i on_2 . va lue 
arrl[2] ,condition_2 .value_att2 :=0.7; 

arrl [ 2 ] . decision. value_ 
arrl [2] .decision. value_att2 := 0.5; 

arrl [3] . condition_l. value 
arrl [3] . condition_l . value_att2 ;= 0.4; 

a r r 1 [ 3 ] . condition_2. value 
arrl [3] . condition_2 . value_att2 ;= 0.7; 

arrl [ 3 ] . decision. value_ 
arrl [3] .decision. value_att2 := 0.9; 

arrl [4] . condition_l. value 
arrl [4] . condition_l . value_att2 := 0.5; 

arrl [ 4 ] . condition_2 .value 
arrl [4] . condition_2 . value_att2 := 0.8; 

a r r 1 [ 4 ] . decision. value_ 
arrl [4 ]. decision. value_att2 := 0.3; 

a r r 1 [ 5 ] . condition_l. value 
arrl [ 5 ] . condition_l . value_att2 := 0.7; 

arrl [5] . condition_2 .value 
arrl [5] ,condition_2 .value_att2 := 0.5; 

a r r 1 [ 5 ] . decision. value_ 
arrl[5] .decision. value_att2 := 0.2; 

a r r 1 [ 6 ] . condition_l. value 
arrl [6] . condition_l . value_att2 := 0.2; 

a r r 1 [ 6 ] . condition_2. value 
arrl [6] . condition_2 .value_att2 := 0.2; 

arrl [6] . decision. value_ 
arrl[6] .decision. value_att2 := 0.8; 

arrl [7] . conditional. value 
arrl [7] . condition_l . value_att2 := 0.6; 

arrl[7] . condition_2 .value 
arrl [7] . condition_2 . value_att2 := 0.1; 

arrl [7] . decision. value_ 
arrl [7] .decision. value_att2 := 0.5; 
end; 


_ a 1 1 1 
a 1 1 1 : = 0 

_ a 1 1 1 : = 0 

_a 1 1 1 : = 0 

a 1 1 1 : = 0 

_a 1 1 1 : = 0 

_ a 1 1 1 : = 0 

a 1 1 1 ; = 0 

_a tt 1 : = 0 

_a 1 1 1 ; = 0 

a 1 1 1 : = 0 

_a 1 1 1 : = 0 

_a 1 1 1 : = 0 

a 1 1 1 : - 0 


_ a 1 1 1 : = 0 

_a 1 1 1 : = 0 

a 1 1 1 : = 0 

{ ASSIGN VALUES } 


8 ; 

7 ; 
6 ; 
5 ; 

8 ; 

3 ; 

7 ; 

2 ; 
2 ; 

4 ; 

9 ; 

8 ; 
7 ; 

3 ; 
7 ; 

4 ; 


^ **************************************************************** 
*********** } 

{ ************************* PROCEDURE EXAMPLE 

*****************************} 

{**** 

****) 

{**** This procedure assigns the conditional and decisional 

attributes ****} 

{**** for the sample run. 


****} 

{*******************************************♦******************** 
*********** J 

procedure example (var con : cond_struct? 

var dec : dec_struct; 
var case_arr : info) ; 


var 

i : integer? 
begin 

initialize(con,dec) ; 
con. consider := 'tumor'; 
dec. consider : = 'disease'; 
con.firattr := 'size'; 
con.secattr := 'color'; 
con. firattr_l := 'large'; 
con. firattr_ 2 := 'small'; 

con. secattr_l ;= 'red'; 
con. secattr_2 ;= 'blue'; 
dec.firattr :* 'Da'; 
dec.secattr ;= 'Db'; 
for i := 1 to 8 do 
begin 

case_arr[i] .condition_l.attl 
case_arr [ i ] . condition_l . att2 
case_arr [ i] . condition_2 . attl 
case_arr [ i ] . condit ion_2 . att2 
case_arr[i] .decision. attl 
case_arr [ i ] . decision . att2 
end; 

assign_value ( case_arr ) ; 
end; 


{ EXAMPLE } 


con. f irattr_l ; 
con. f irattr_2 ; 
con . secatt r_l ; 
con. secattr_2 ; 
dec.firattr; 
dec.secattr; 


{ EXAMPLE } 


{**************************************************************** 

*****} 

{************************** PROCEDURE MENU 

*************************} 

( **** 

****} 

{**** This procedure creates the main menu. 

**** } 

{ **************************************************************** 

procedure menu (var sel ; char ) ; 

begin { MAIN } 

sel := ' 4 ' ? 

REPEAT 

writeln( 1 
************************************************ 1 ) ; 

writeln( ' 
************************************************ 1 ) » 
writeln(' ** 

**') ; 





** WELCOME TO THE CULAS-WORM DECISION MAKER 


writeln ( ' 

**') ; 

writeln(' ** 

**'); 

writeln ( 

************************************************'); 

writeln ( ' 

************************************************ * ) ’ 
writeln; 
writeln; 
writeln; 
writeln ( ' 
writeln ( ' 
writeln ( ' ' ) ; 

writeln ( ' 
writeln ( ' 
writeln ( ' 
writeln ( ' 1 ) ; 

writeln ( ' ' ) ; 

write ( 'Please enter your choice 1, 2, or 3 : '); 

readln(sel) ; 

UNTIL ( ( sel = * 1 * ) or (sel = '2') or (sel = '3') ); 

end; ( HA™ } 


Here are the choices 
********************** 


') ? 
') ? 


1) Show a sample run of this program '); 

2) Run the program using your data '); 

3) Quit '); 


( **************************************************************** 
********* } 

| ********************** PROCEDURE ASK SIT 

******************************} 

^ * * * * 

****} 

[**** This procedure asks the user if they would like to use the 
**** } 

{**** data for a different run. 

* * * * \ 

{**************************************************************** 
********* i 

procedure ask_sit(var choice : char; 

var cont ; integer) ; 


begin 

choice 


{ ASK SIT } 


REPEAT 

writeln ('Do you want to use the same 
used ' ) ; 

write ( 'Please enter [y] or [n] '); 

readln (choice) ; 

UNTIL ( (choice = 'y ') or (choice = 'Y') 
(choice = 'N' ) ) ; 

end; 


attributes as previously 


or ( choice = 'n') or 
( ASK SIT } 


{ 




PROCEDURE 


ASK 


DATA 


KIND 


* * * * * * } 

{********************* 

**********************} 

{ **** 

****} 

(**** This procedure asks the user what type of data they will be 
**** } 

{**** using - real or fuzzy. 

**** j 

{**************************************************************** 

******} 

procedure ask_data_kind ( var ch : char) ; 

begin { ASK DATA KIND } 

ch : = ' ' ; 


REPEAT 

writeln; 

writeln; 

writeln ('What kind of data do you want to use ?'); 
writeln; 

writeln ('Real kind : eg. ( 20 30 92 ) '); 

writeln ( ' or ' ) ; 

writeln ('Fuzzy kind : (values between 0 and 1 : eg.(.l .4 

• 7) '); 

writeln; 

write( 'Please enter [r] for real or [f] for fuzzy : '); 

readln(ch) ; 

UNTIL ( (ch = 'r') or (ch='R' ) or (ch=' f ' )or (ch='F' ) ); 

end; { ASK DATA KIND } 


I**************************************************************** 

******* J 

{********************** PROCEDURE READ FUZZY 

*************************} 

{ **** 

**** } 

{**** This procedure reads in the fuzzy values. 

****} ... . . . 

{ ******************** *******.**j^IcC***************** ************** 

******* } 

procedure read_fuzzy (con : cond_struct; 

dec ; dec_struct ; 
var case_arr ; info; 
var n ; integer) ; 

var 

i : integer; 
ch : char; 

begin ( READ FUZZY ) 

ch := ' y ' ; ; 

d. * = X * 

while ( (ch = 'y') or (ch = 'Y') ) do 
begin 

case_arr [ i ] . condit ion_l . att 1 : = con. f irattr_l ; 


case_arr[i] . condition_l. att2 := con. f irattr_2 ; 

case_arr [ i] . condition_2 . attl := con. secattr_l ; 

case_arr [ i) . condition_2 . att2 := con. secattr_2 ; 

case_arr[i] .decision. attl := dec.firattr; 

case_arr[i] .decision. att2 := dec.secattr; 

write (' Please enter a value for ' , con. f irattr_l , 1 : '); 

readln (case_arr [ i] . condition_l .value_attl) ; 

write( 'Please enter a value for ' , con. f irattr_2 , ' : '); 

readln (case_arr [ i] .condition_l.value_att2) ; 

write (' Please enter a value for ' ,con.secattr_l, ' : '); 

readln ( case_arr [ i ] . condition_2 . value_attl) ; 

write (' Please enter a value for ' ,con. secattr_2 , ' : '); 

readln ( case_arr [ i ] . condition_2.value_att2) ; 

write (' Please enter a value for ' ,dec. f irattr , 1 : '); 

readln ( case_arr [ i ] . decision. value_attl) ; 

write (' Please enter a value for ' ,dec. secattr, 1 : '); 

readln (case_arr [i] .decision.value_att2) ; 

i := i + l; 

REPEAT 
writeln ; 

write (' Please enter [y] to input more data or [s] to stop : 
readln (ch) ; 

UNTIL ( (ch = 's') or (ch = ’S') or (ch ='y') or (ch = 'Y') 

) ; 

end; 

n := i-1; 

• — I I * 

end; ’ ' { READ FUZZY } 


{ **************************************************************** 
******** } 

{************************ PROCEDURE ASK VALUE 

*************************} 

{ **** 

**** } 

{ **** This procedure asks the user if they want to use the same 
**** } 

{ **** values as before for another run. 

**** } 

{**************************************************************** 

********} 

procedure ask value ( var ask_val : char) ; 

begin { ASK VALUE } 

repeat 

writeln; 

writeln ('Do you want to use the same values as previously used 

' ) r 

write( 'Please enter [y] for yes; or [n] for no : '); 

readln ( ask_val) ; 

until ( (ask_val = 'y') or (ask_val = 'Y') or (ask_val = 'n') 


or 


end; 


( ASK VALUE } 


(ask_val = 'N') ); 


{**************************************************************** 

******* } 

{************************* PROCEDURE ASK SEE 

*************************} 

{ **** 

**** } 

{**** This procedure asks the user if they want to see the data 
**** } 

{**** that is being used. 

^*-k************************* ************************************* 

******* } 

procedure ask_see( var ch ; char); 

begin { ASK SEE } 

repeat 
writeln; 
writeln; 

writeln ( 'Would you like to see the data being used : '); 

write (' Please enter [y] or [n] : '); 

readln(ch) ; 

until ( ( ch = 'y') or (ch = * Y • ) or (ch = 'n') or (ch = ' N ’ ) 

) ; 

end; { ASK SEE } 


(**************************************************************** 
****** J 

{*********************** PROCEDURE PRINT DATA 

***********************} 

{ **** 

**** J 

{**** This is the procedure to print the data- 

**** } 

^ **************************************************************** 
* ***** j 

procedure print_dat (arrl : info; 

: cond_struct; 
dec : dec_struct ; 

n ; integer ) ; 


{ PRINT DATA } 

writeln (' Data being used '); 

writeln; 

writeln; 

writeln ( ' The attributes under consideration are ' , con. consider , 
' and dec. consider ); 


con 


var 

i : integer ; 

vt 


writeln; 


1 to n do 


writeln; 
for i := 
begin 

writeln (arrl [ i ] . condition_l.attl:10, ' 

' : 2 , arrl [ i] . condition_l . value_attl : 2 : 1, 

1 ' : l 0 , a r r 1 [ i ] . condition_l. att2 : 10 , ' 

' :2,arrl[i] . condition_l . value_att2 : 2 : 1) ; 

writeln(arrl[i] . condition_2 . attl : 10, ' 

' : 2 , arrl [ i] . condition_2 . value_attl: 2 : 1, 

1 1 : 10 , arrl [ i] . condition_2.att2:10, 1 

' : 2 , arrl [ i] . condition_2 . value_att2 : 2 : 1) ; 

writeln (arrl [ i] .decision, attl: 10, 1 
' : 2 , arrl [i] .decision. value_attl : 2 : 1, 

1 ' : 1 0 , a r r 1 [ i ] . decision, a 1 1 2 : 1 0 , ' 

' :2,arrl[i] .decision. value_att2 : 2 : 1) ; 
writeln; 
writeln; 
end; 

end; { PRINT DATA } 


**********} 

********** } 

{************************ 

****************************} 

(************************ ' MAIN MODULE 

****************************} 

**********} 

**********} 

BEGIN { MAIN } 

initialize (condition, decision) ; 
count : = 0 ; 
m_ch : = • 4 ' ; 
repeat 

read_data := false; 
menu(m_ch) ; 

if ( (m_ch = '1') or (m_ch = *2') ) then 
begin 

if ( m_ch = '1') then 
begin 

no_of_cases := 7; 

example (condition, decision, cases) ; 
ask_see(see_ch) ; 

if ( ( see_ch = 'y') or (see_ch = 'Y') ) then 


print_dat (cases, condition, decision, no_of_cases) ; 

end 

else if (m_ch * 1 2 * ) then 
begin 

if ( count = 0) then 
begin 

read_data := true; 
count := count + 1; 
initialize (condition, decision) ; 
read_situation (condition, decision) ; 

end 

else 

begin 

ask_sit(sit_ch, count) ; 

if ( (sit_ch = 'n') or (sit_ch = 'N') ) then 
begin 

read_data ;= true; 

initialize (condition, decision) ; 

read_situation (condition, decision) 

end 

else 

begin 

ask_value (val_ch) ; 

if ( (val_ch = ' n') or (val_ch = ' N * ) ) then 
read_data : = true ; 
end; 

end; 

if read_data then 
begin 

ask_data_kind(d_ch) ; 

if ( (d_ch = 1 r') or (d_ch = 'R') ) then 
read_real (condition, decision, cases, no_of_cases) 
else 

read_fuzzy (condition, decision, cases, no_of_cases) ; 
ask_see (see_ch) ; 

if ( ( see_ch = 'y') or (see_ch = 'Y') ) then 
print_dat ( cases , condition , decision , no_of_cases ) ; 
end; 

end; 


create_condl_fuzzy_sets ( cases , no_of_cases , condl_attl_arr , condl_at 
t2_arr) ; 

create_cond 2 _fuzzy_sets (cases, no_of_cases, cond2_attl_arr, cond2_at 

t2_arr) ; 

create_decision_fuzzy_sets (cases, no_of_cases,dec_attl_arr, dec_att 

2_arr) ; 

init (decl_sub) ; 

init (dec2_sub) ; 

init (dec l_inter) ; 

init (dec2_inter) ; 

set_cond (condition, decl_sub) ; 


set_cond (condition, dec2_sub) ; 
set_cond (condition, decl_inter) ; 
set_cond (condition, dec2_inter) ; 
set_decl (decision, decl_sub) ; 
set_decl (decision, decl_inter) ; 
set_dec2 (decision, dec2_sub) ; 
set_dec2 (decision, dec2_inter) ; 

value_sub (no_of_cases , condl_attl_arr , condl_att2_arr , cond2_attl_arr , 
~ cond2_att2_arr,dec_attl_arr,decl_sub) ; 

value_sub (no_of_cases, condl_attl_arr , condl_att2_arr , cond2_attl_arr , 

cond2_att2_arr, dec_att2_arr , dec2_sub) ; 

value_inter (no_of_cases, condl_attl_arr,condl_att2_arr , cond2_attl_ 

arr , 

cond2_att 2_arr , dec_att l_arr , dec l_inter ) ; 

value_inter (no_of_cases , condl_attl_arr , condl_att2_arr , cond2_attl_ 

arr, 

cond2_att 2_arr , dec_att2_arr , dec2_int er ) ; 
print_rules (decl_sub , dec2_sub , decl_inter , dec2_inter ) ; 

end; 

until (m_ch = 1 3 1 ) ; 

end. 


{ MAIN } 





